perm filename EAID.1[MAC,LSP]6 blob
sn#646536 filedate 1982-03-12 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00012 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 MacLisp Aids for E
C00016 00003 E Manipulation Routines
C00023 00004 A mapping function for E entities
C00026 00005 Sends a page of stuff, 200 liness at a time
C00027 00006 Stuff to lookup a word in UNABRD.DIC Takes a word in the attach
C00039 00007 Routines to exchange 2 pages.
C00042 00008 A routine to clean up a file.
C00048 00009 Not equals
C00050 00010 Hack to Double Column
C00052 00011 For Finding Strings
C00053 00012 For Responding to MAIL.
C00057 ENDMK
C⊗;
;;; MacLisp Aids for E
(declare (special ?e:id *e:a1 *e:a2 *e:b1 *e:b2 -em:sfa-
-em:mail-input-buffer-dry-handler-)
(setq defmacro-for-compiling ())
(muzzled t)
(*lexpr %match)
(*expr em:warn read-filename em:tyi-line em:readonly-var em:raw-ecommands
%instantiate em:tyi-message em:readonly-vars em:ecommands))
(defun e:goto (page line)
(em:ecommands (append (e:make-e-control-number page)
'(α P)
(e:make-e-control-number line)
'(α L))))
(defun e:make-e-control-number (n)
(cond ((zerop n)(list 'α 0))
(t
(let ((sign (cond ((lessp n 0) '-))))
(setq n (abs n))
(do ((i n (quotient i 10.))
(ans ()))
((zerop i) (cond (sign (push sign ans)(push 'α ans)))
ans)
(push (remainder i 10.) ans)
(push 'α ans))))))
(defun e:balance ()
(let ((alist (em:readonly-vars '(line lines page pages))))
(let ((line (cdr (assq 'line alist)))
(lines (cdr (assq 'lines alist)))
(pages (cdr (assq 'pages alist)))
(cpage (cdr (assq 'page alist)))
(cline (cdr (assq 'line alist)))
(page (cdr (assq 'page alist))))
(em:ecommands '(α - α V))
(e:balance2 line lines page pages)
(em:ecommands (append (e:make-e-control-number cpage)
'(α p)
(e:make-e-control-number cline)
'(⊗ ↔)
'(α V)))
'done)))
(defun e:balance2 (line lines page pages)
(do ((page page (1+ page)) (cline ()))
((< pages page))
(do ((line line (1+ line)))
((< lines line)
(or (= pages page)
(em:ecommands '(α p)))
(setq line 1
lines
(cdr (assq 'lines (em:readonly-vars '(lines))))))
(em:ecommands '(α =))
(setq cline (em:tyi-message))
(cond ((%match
'(*e:a1 ?e:id ($r ? e:lbp)
*e:b1)
(reverse cline))
(setq *e:a1 (reverse *e:a1)
*e:b1 (reverse *e:b1))
(cond ((%match
`(,@*e:b1
? ? *e:b2 ,?e:id ($r ? e:rbp) *e:a2)
↓ cline)
(let ((balance (e:count-parens
*e:b2)))
(cond ((> balance 0)
(em:ecommands '(α K ⊗ ↔ α ⊗ ↔))
(em:raw-ecommands
(append *e:b1 *e:b2
(e:n-parens balance)
*e8a2))
(em:ecommands '(⊗ B α // α ⊗ ↔))
(setq line (1- line)))
↓ ((< balance 0)
(em:ecommands '(α K ⊗ ↔ α ⊗ ↔))
↓ (em:raw-ecommands
∩∩$∩∩@@!CaaK9H@~∀$∩∩∩∩@@UJiDb@~(∩∩∩∩$@@@Q
Id@Q∀uMYkMP[\[ACeK]L@~∀∩$∩∩∩∩UJuDH~∀α∩$∩∩∩@![SMkLAECY¬]GJR$R@UJiBdRR4∀∩∩∩$∩@QK4uKG←5[C]IL@NP,↓∧@∧@<↑@∧@X@.RR4∀∩∩∩$∩@Qg∃ibAY%]J@PDZAYS9JRRR4∀∩∩∩$∩Qh@4∀∩∩∩$∩@QK4uKG←5[C]IL@NP∧↓⊗@,@\@∧@,.RR~(∩∩∩∩$@QKZieCn[∃G←[[¬]If@4∀∩∩∩$∩@@Q¬aaK]⊂@UJuλb@UJiDd@U∀uBdR$~∀∩∩$∩∩@Q∃ZuKG=[[C]⊃f@NPXA∧@∧↑↑@∧,@.R$~∀∩∩$∩∩@QMKibA1S]J@ bZAY%]JRR$RRR@4∀∩∩∩@@@QP@QKZiKG←[5C]IfNP∧A,@,@.∧@,@\RR~∀$∩∩@@@@@@!KZue¬n[KG=[[C]⊃f@QCAaK]HUJuDD@UJu∧bRR~(∩∩∩@@@@@QKZu∃G←[[¬]If@≤P,A∧∧@↑↑@,@.$R~∀@@@@@@@@@@∩∩@@@@@QG←]⊂@PPK5CiGPNPT@ Id@}↓JuYE@R@TRUJuBDR~∀@@@@@@@@@$∩∩@@@@@Q∃ZuKG=[[C]⊃f@NPXA∧RR4∀∩∩∩$@@@@@QYKP@PP␈∀uSH@ RRPU∀uDb@ RRPU∀uBbP$RR~∀$∩∩∩∩@@QJiECYC9GJdA1S]JA1S]Kf↓aCOJ↓aCOKLRR~∀@@@@@@@@@@@∩$∩@@@@@QJiO←i↑↓aCOJ↓YS]J$~∀@@@@@@@@@∩$∩@@@@@QK4uKG←5[C]IL@NP∧zRR~(∩∩∩∩@@@@QgKiDAGYS9J@QK4uisR5[Kgg¬OJRR~∀∩∩$∩@@@@@PK5CiGP↓@PY)JuDbUJuBDRAGY%]JRR$~∀@@@@@@@@@∩$@@@@@@QJiECYC9GJb@⎇JuSHQJuG=k]h[ACeK]L@UJu∧bR~∀$∩∩∩∩@@Pb,AYS]∀RAYS9KfAa¬OJAa¬OKfR4∀∩∩∩@@@@@QJu≥←i↑AACOJA1S]JR4∀∩∩∩@@@@@QgKQbAYS9J@Pb4AYS]∀RRRR$~∀∩∩@@@@!h@QK4uKG←5[C]IL@NP,.RRR$RRR~(~∀QI∃M[CGI↑AJu CGWk@@PR~(∩@A@!G←]HPPzA1S]J@DR~∀∩$@@QG=]H@P zAaC≥J@bR4∀∩∩∩QaeS9h@O≥=h[EC1C]GK⊂R~∀∩$∩@PUQQe←nO←khPRRR4∀∩∩∩!h@Qg∃ibAa¬OJ@PDZAaC≥JRR~(∩∩∩@@QKZiKG←[5C]IfNP∧@4@∧A $R~∀∩$∩@@@!gKib↓YS]KL@QGIH@QCgMb@OY%]Kf~(∩∩∩∩$∩@@Q∃ZueK¬I←]Yd[mCeL@NQY%]KfR$RRR~(∩∩∩@@QgKQbAYS9JAYS9KfR~(∩∩∩@@QKZiKG←[5C]IfQCaa∃]H@~(∩∩∩∩$@@QJi[CWJ5J[G←9ie←X5]k[E∃dAYS9KfR~(∩∩∩∩$@@NPλA_RR$RRR~(∩∩@QP@QgKQbAYS9J@Pb4AYS]∀RR~∀$∩@@@QKZu∃G←[[¬]If@≤P,A∧$RRRR4∀~∀Q⊃KMk\↓JuEC1C]GJD@QSH↓\AYS9JAYS9KfAa¬OJAa¬OKfR4∀@QY∃h@PQ
YS]JPRRR4∀@@@@@PU
CiGPOI←]∀~∀∩@@@@@!I↑@P!aCOJ↓aCOJPbVAACOJR$R~∀∩$@@PPpAaCO∃fAaC≥JR~∀@@@@@@@@∩@@@!aeS]P@O≥←P[ECY¬]GKH$R~∀∩$@@QI<@PQY%]JAY%]J@PDVAYS9JRRR4∀∩∩@@@@@ PxAY%]KfA1S]JR4∀∩∩@@@@@Q←d@ zAaC≥JAaC≥KfR~(∩∩∩@@QKZiKG←[5C]IfNP∧A@RRR~(∩∩@@@@@@!gKib↓YS]Jb~∀∩$∩@@@AYS]∃f~∀∩$∩@@@@QGIH@QCgMb@OY%]Kf@!KZue∃CI←]1r[mCIf@NQ1S]Kf$RRRR$~∀@@@@∩∩@@@@QKZu∃G←[[¬]If@≤P∧@z$R~∀∩$@@@@@QgKQbAGY%]J@Q∃Zuis$[[KgMCOJR$~∀@@@@@@@@@@$@@@@@QG←9H@PP∃[CiG @NPTPId@|AJuY `R@T$AGYS9JR~∀$∩∩@@@@QY∃h@PP⎇JuSHPRRP)JuDbPRRP)JuBbPRRP)JuDdPRRP)JuBdPRRR4∀∩∩∩$@@QJiECYC9GJdA1S]JA1S]Kf↓aCOJ↓aCOKLRR~∀$∩∩@@@@QJiO←i↑↓aCOJ↓YS]J$RR~∀@@@@@@@@∩@@@@@QG=]H@P K[Ci
PA@P)JuDbYSH@ Id@}↓JueE@R@UJiBbR~(∩∩∩∩@@@A
YS]J$~∀@@@@@@@@@∩$@@@@QYKhPQEC1C]GJPVA\QJuG=k]h[ACeK]L~∀∩∩$∩∩∩@UJuDDRRRR4∀@@@@@@@@@∩∩$@@QG=]H@P |AEC1C]GJ`R~∀$∩∩∩∩QKZu∃G←[[¬]If@≤P∧A⊗,@.@λ@,@.$R~∀∩$∩∩∩@!KZue¬n[KG=[[C]⊃f~∀∩$∩∩∩∩@@@Q¬aaK]⊂@UJuλb~∀∩$∩∩∩∩$@@@@!Ju\[ACeK]LAECY¬]GJR4∀∩∩∩$∩∩∩@@@UJiBbRR4∀∩∩∩$∩@QK4uKG←5[C]IL@NP,↓∧@∧@<↑@,@\RRR~(∩∩∩∩$PPxA CYC]
J@`R4∀∩∩∩$∩@QaI←N@P$~∀∩∩$∩∩@@@@@A¬OCS\~∀∩∩$∩∩@@@@@@!KZuK
←[[C9If@N ∧A⊗@X@.@∧,@.R$~∀∩∩$∩∩@@@@@@!YKh@ Q\@~(∩∩∩∩$∩@@@@@QJiMYkg [\[a¬eK]fUJuDD~∀∩∩$∩∩∩∩$∩Q[S9kfAE¬YC]G∀RRRR4∀∩∩∩$∩∩@@@QKZieCn[∃G←[[¬]If~(∩∩∩∩$∩@@@@QCaAK]H@4∀∩∩∩$∩∩@@@@@Q
IdA\$~∀∩∩$∩∩∩@@@@@)JuBb$R~∀∩$∩∩∩∩@@@Q∃ZuKG=[[C]⊃f@NPXA∧@∧↑↑@,.RR~(∩∩∩∩$∩@@@QG←]⊂@PPzQGCd↓\R@`$@QeKQke\APRR~∀$∩∩∩∩$∩@@QP~∀∩∩$∩∩∩∩@@QJiECGWU`R~∀$∩∩∩∩$∩@@@!KZuK
←[[C9If@N ∧@zR$~∀∩∩$∩∩∩∩@@Qg∃ibAG1S]J@em:tyi-message))
(setq *e:b1 cline
*e:a1 ())
(go again))))))
(t
(em:ecommands '(α K ⊗ ↔ α ⊗ ↔))
(em:raw-ecommands
(append *e:b1 *e:a1))
(em:ecommands '(⊗ B α // ⊗ ↔)))))
(*throw 'done t))
(t (em:ecommands '(α // ⊗ ↔))
(setq n (+ n (e:count-parens cline))))))))))
(defun e:count-parens (l)
(do ((l l (cdr l))
(n 0))
((null l) n)
(cond ((e:lpp (car l))
(setq n (1+ n)))
((e:rpp (car l))
(setq n (1- n)))
((e:scp (car l)) ;semi-colon
(return n)))))
(defun e:n-parens (n)
(do ((n n (1- n))
(ans ()))
((= n 0) ans)
(push #o51 ans)))
(defun e:flush-n-parens (l n)
(do ((l l (cdr l))
(a ()))
((or (null l)
(e:scp (car l)))
(do ((a a (cdr a))
(quit ())
(ans ())
(n n))
((or quit (= n 0)) `(,n . ,(append (reverse a) ans l)))
(cond ((e:rpp (car a))
(setq n (1- n)))
((null a)
(setq quit t))
(p (push (car a) ans)))))
(push (car l) a)))
(defun e:scp (n)(= n #o73))
(defun e:lpp (n)(= n #o50))
(defun e:rpp (n)(= n #o51))
(defun e:lbp (n)(= n #o133))
(defun e:rbp (n)(= n #o135))
(declare (special e:line e:lines e:page e:pages))
(defun e:send-next-line ()
(let ((-em:mail-input-buffer-dry-handler- ()))
(cond ((= e:lines e:line)
(cond ((= e:page e:pages)
(break |No right paren found| t))
(t (em:ecommands
'(α p))
(setq e:line 1
e:page (1+ e:page)
e:lines
(cdr (assq 'lines
(em:rea`only)vars '(lines)))))
(em:ecommands '(α =)))))
(t (em:ecommands '(⊗ ↔ α =))
(setq e:line (1+ e:line))))))
(defun e:seNd-this-line ()
(lEt ((-em:mail-iNput-buffer-dry-handler- ()))
(coNd ((< e:lines e:line)
(cond ((= e:page e:pages)
(break |No right paren found| t))
(t (em~ecommands
'(α p))
(setq e:line 1
e:page (1+ e:page)
e:Lines
(cdr (asSq 'lines
(em:readonly-vars '(lines)))))
(emiKG←[5C]IfNP∧@tRRRR$~∀α@@@@@!h@QK4uKG←5[C]IL@NP∧z@,@\RR~∀$∩@Qg∃ibAJiYS]JPbVA∀qYS]∀RRRR$R~∀~(vvvAM 1 A=\A]KahAYS9J~∀Q⊃KMk\↓JuKm¬X[]Kah[gKβCA↓!Hh)↓#,¬SV.=⎇Vn∞lN2α:$~αT"~
e∩Hh$¬ε+V↑l⊗bnl[π"o<X∞∞ε*#"D¬→; ≥→qwvvXw29P T↓⊂↓H+∀TTCEαE∀→2s:wλ2]2{_v⊗w2↑:∩yr↑8_P∀
FE⊂⊂
42z⊂
∀0v4\z⊂∀2[]92pY7w6<K{0y9H∪T6$[2P6$[2yP8_srP8_qryTJTTFEλ⊂⊂⊂⊂λ⊂∀9r]8P2]≠4w2P
1r9
0yyhH∪v4w→P0v4\z∀TFB∧P⊂⊂λ⊂2] ,ines (cdr(assq 'lines alist))
↓ e:page (cdr(assQ 'page aliqt))
e:Paces (cdr(assq 'pages alist))))
(let ((-em:mail-input-buffer-dry-handler- 'e:send-next-line))
(print (eval (read)))))
;;9 SEXP on this line
(defun e:eval-this-sexp ()
(em:ecommands '(α β - α β V))
(e:eval-this-sexp1)
(em:ecommands '(α β V)))
(defun e:eval-this-sexp1 )
(let ((alist (em:readonly-vars '(line lines page pages))))
(setq e:line (cdr (assq 'line alist))
e:lines (cdr (assq 'lineS alist))
e:page (cdr (assq 'page alist))
e:pages (cdr (assq 'pages alist))))
(cond ((< e:lines e:line)(setq e:line (1- e:line))
(em:ecommands '(⊗ ↑))))
(let ((-em:maid-input-buffEr-dry-handler- 'e:send-this-line))
(print (eval (read)))))
;;; E Manipulation Routines
;;; These are to help the user edit his MacLisp file.
;;; This routine sends the current sexp no matter where you
;;; are as long as you are `inside' of it
(defun e:send-this-defun ()
(em:ecommands '(α β - α β V))
(e:find-defun-backwards);find the previous defun, defmacro...
(e:eval-this-sexp1) ;evaluate it
(em:ecommands '(α β V)))
(defun e:find-enclosing-defun ()
(em:ecommands '(α - α v))
(e:find-defun-backwards)
(em:ecommands '(α - α v))
'done)
(defun e:find-defun-backwards ()
(let ((alist (em:readonly-vars '(line lines page pages))))
(setq e:line (cdr (assq 'line alist))
e:lines (cdr (assq 'lines alist))
e:page (cdr (assq 'page alist))
e:pages (cdr (assq 'pages alist)))
(cond ((< e:lines e:line)(setq e:line (1- e:line))
(em:ecommands '(⊗ ↑))))
(*catch 'e:find-defun-backwards
(do ((e:page e:page (1- e:page)))
((< e:page 1) (break |Defun not found| t))
(do ((e:line e:line (1- e:line)))
((< e:line 1))
(em:ecommands '(α =))
(cond ((e:def@U\[←\5iQSf5YS]Kβ↓↓#↔iSSg∃]V/∨<≤v*J⊃Q HH∀∧ααα∧¬αW&∞-w:α|W&6Nl@ ,L9];E\X8zn|<Y≤d∞λ**!Q@∧DPλ⊂⊂⊂⊂λ∀2v@:ecommands '(⊗ b)))
(em:Ecommands '(α - α p α
⊗ ↔ ⊗ b))¬
(setq↓JuIS9Kf@Q
Id@Q¬cgb@≥YS]Kβ→↓#↔iSK↔π&{;3Eo3πKMα9#3'v+M%%JI$4(HI↓↓↓G≠↔SEε)c &≥lRε+-I⊗v/5∃∩JJ⊃Q hS4εndλY|@⊂≠5{P )t loOhπfAM=` hQ'3@7h
→ \β:wεB≥]]@
22s -acro
;;;(h CGβ∪<4)YY`~αα≠8.Lz ;,≤|[c!'nn`¬
αpq`2o`ef
λλ
∧Q⊃KEk\αβ∃k∪,3W97|¬bo&
~2nf≥lWαα∞LWGαα#"D∧λλλ∧∧λ≠p→βE (∃[CiG @F@TG↑j`P@∪'⊂∧αRεU( n 8y0_
PεE∧BP⊂⊂⊂
⊂∧r ? e0∃I@R~∧∩$@@@@ Id@↑↓JuK`$~∀$J↓↓↓↓@#A↓⎇∧∧SF7¬⊃P@Hα(λ∧∧λ ≤DπβP2]≥x⊂
($`$α↓⎇β∃β( N¬(
↓∞⊂∨P %8¬gaC
K`@%αQ%βS-CQ$Q!∩B8εpz_t⊂∪D
⊂⊃wZL⊂⊂λ$ip∧@@)∧∧S@.|_8l↑λ∧PεBα ∩@@@@!'⊃↓`: W&'αα#"A⊃(λλ∧¬ _ ? e 5α+A$Q!⊂Jα∧∧αB≤H∂d ,¬3 0)
∀∩$@@@@ Id@@zβ∃k↑¬⊂hPα"(∧∧λ
∩≤α ? @∀p πAHh ⊂Hα(λ∧∧λ∧∩9λ≤π e:cp ∩~(∩∩@@@PIDα↓⎇β∃β( N¬ εE∧BP⊂⊂⊂
⊂∧r ? e0∃←β↓%↓∧N"β@h→.Nx0q`%p) *) p KqPR~(JA↔7π&≠!↓≥@¬"α≡vVααBM_ D¬H→.Nx0q`%p)
($b}AJ@T¬WαHβ"B!∀λλλ¬∧α9⊂∨H2X
ap)
∀∩$@@@@ Id@@zβ∃kSα¬⊂hPα"(∧∧λ
∩≤α ? @∀p ∂AHh ⊂Hα(λ∧∧λ∧∩9λ≤π e:hp ∩~(∩∩@@@PI@⊂∧βzεTεK.¬ εE∧BP⊂⊂⊂
⊂∧r ? e0∃[@R~(HI↓↓↓αA∪I↓βtε+V≤∧
!Q@∧DPλ⊂⊂∀$p∧@}Aα)`⊗∨¬⊃P@! ∧P⊂λ⊂⊂λ$r 8∞AJi` A⊃Q HJ∧∧ααBL∧@⊂∂P2P~@=`R@Pα#@∩βtλ '9x0qYx⊂ *) te@ahR4PI!.β8= =λ `∀
⊂⊃wZL⊂⊂λ$ip∧@@)∧∧S@.|_8l↑λ∧PεBα ∩@@@@!'⊃↓`: W&oαα#"A⊃(λλ∧¬ _ /P2P~@¬`R4PH%↓↓α↓!'$πrε+αXp_
F@
($r >↓Jue@αH4(⊃∀ααα¬ ∞⊂∨P %8¬P∨AHh ⊂Hα(λ∧∧λ∧∩9λ≤π e:dp ∩~(∩∩@@@PI@⊂∧βzεTεP∩\∀@
( d@|AJ`+4εαJαα ≤DπβP2]≤βpac@∃`R@T$A`∪↔G!$4!∃α.n≡L6Bαu
D∧{m,∧¬ ~0→λ∃⊂2]≤βpac@∃`R@~(∩∩@@@PIDα↓⎇β∃β( .¬ εE∧BP⊂⊂⊂
⊂∧r ? e0∃C@R~∧∩$@@@@ Id@@zβ∃k∂αH4(⊃∀ααα¬G$∂h⊂∩Nαrp)
λ ∩@@@@IH@vAJi←`@%αA∪I↓βtε+W>λ⊗≡<
(¬%(≥→/∞α⊂ ))
∩~(QIKMβ+9β∃TεvFOLUW>_8p∩\⊂⊂λn$@Q←DPp∃βp∧α=m
!Q@∧DDH⊂⊂⊂⊂λ∀≡P'λ⊃wXXJTTFEβE∀22Yαp @9∧∧S@-β3r-white-spacep (n) ⊃]=h@A←β⊃↓!u∧q↓∂=fun e:up (n) (or (= n #o125)
(= n #o165)))
(defun e:np (n) (or (= n #o116)
(= n #o156)))
(defun e:mp (n) oR (= n #o115)
(= n #o155)))
(defun e:ap (n) (or (= n #o101)
(= n #o141)))
(defUn e:Cp (n (or (= n#o103)
(9 n #o143)))
(defun e8rp (n) (or (= n #o122)
(= n #o142)))
(defun e:op (n) (h∂d@ zA\@
↑bbn$~∀∩∩@@@@ zA\@
↑bjn$RR~∀4∀QIK→k\AJii`@Q8R@A←β⊃↓!uεq↓∂= ⊃Q$4PH%↓↓α↓↓!uεq↓∂= 1Q%%Hh(4 F#↔ Wp∧ε+V∞∧αFR∀¬ε␈∩¬βRεR∧9s ¬⊃PPH∀∧ααα¬βRε@Hλsf⊗αX∀TJFAεE
22s 5n e:-p n$@PzA8@G↑jTRR
∀4⊂QIK→k\AJigKKSβ↓↓#9JAuβ9α≠=MMJH4(Q%ε&.n]bε+.:ε∞≡↑∧αF@J*π$
HλsfFλ*#!! J→ \];@⊂→]22j≥2y8⊂
4ε)
o@H@QC]⊂@Px@
↑b``↓\R4PH%!q∧q↓∂= →M%$hP%↓↓αCπ;⊃αAq↓∂{ QAβp¬⊂hPα"*πD≠Hλmv-lj%∃*#"AQJ→→,Nαw⊂2Nαdigitp (n)(and (< #o57 N)(< @8@G↑nHRRR~(~∀QI∃IcLA∀p ∪'>KQ73/#S↔Kα↓# 2⊃Q"αα∧∧ααα
x D¬→*P⊗→z:2`2p n)
λ (e:dieit` n)))
λ
α(debune:fo@P[ISO%h[YKQiKe`QTR~(@@@@@@A]=h@A←β⊃↓#∃β( ↑≥→4N∧≠J#!! *→',~9z.Nλ≠B%∃*#"AQJ→→,N;H→'∞_8\∧¬≠J(¬π(≠@∧=l,*%⊃ J→ \];@ WY_;L⎇→<λ¬
J*π$
HλsfV
*#!%→→9N]H→.N,9Y{ ↑λ
≠E∃∂(≠D∧{mmE∃#"J L9];D .P∀∧¬≠J*πT≠Hλmv,
%⊃"@↓Gnnhλ∀≠8<∞
;Y` n;X⎇
≥{H→M}H⊃( ]]~=
≤<c"AQNnnd R3λ∞,<⎇;∞D→[tD ];@
\8;\d∞⎇_>$
{H_n↑\Y;ND≠~;LUλ≠]-\Y<H
\8;\d {h≥.∧≠|H M⎇{C!'nnh∞M_=λ ≥;⎇;NEH∃λ
\8;\d
Y>≥∧
~;Y%a"C"E →9]-d→.\ ≤y+;,≡λ
→N]J#"D¬→;.L\{{;,≥Y≤h∧uH $H∃H$∪
*!QH
→
t
≠
≥Y(
].\Y,≤≠{[∂∃=X<D∧{~;LU*(
∞,<⎇;∞E*#"D∧λλ묬∂λ
].\Y,≤≠{[∂∃=X<D∧{~;L↑j(≠
≥Y*(¬ ;.Y,={;8-l≤h eH∃J%∀ y≠ml*#"D∧λλλ¬ ;.Y,={;8-l≤h eH∂*%⊃"Hλ∧∧λ
≤l↑≤(≤L↑⎇;≥∧¬→];L<;≠λ n;H
].]≡-∃;9<n<9y*%∃#"H∧∧λλ
={Y묬≠];,,<\λ∞,<⎇;∞E#"B$∧λλ
].Y8m⎇;8;LNhβ"A∀λλλ∧¬_<≤ ]Yλβ!!(λλ∧∧λ
→'-8:y%\+8{mn≤[{¬]];8L↑H≤Y.>;≥
$∧j¬Hαu**(↓QB(λ∧∧
≤y.N(≠~-l(
d
~;Y$∞Y<⎇-N
**!QB(λ∧¬≤Y<n]≥λ
∞<=≤(
M;Y(¬ε*h≠
≥Y**!QB"(∧∧
→;',8{{-\;Y≤d∧j¬Hαu***%∃#"C!%→→9N]H→.N<= 8n↑\Y;NE;~;LT
_{
≥Y*#!$λλλ∧∧λ
→-W\X=e\8{{-\;Y≤d¬_<≤ ]Yλ e∧{lH∧=l,,d∧{lMD∧{lMe∀β"B!⊃"(_mM;Y(∧uλ{lFdλ{l&εJ**%⊃"C"E →8{ ≡Y(
∞>→8z,≥λ→.N∞[y≥,>~;{N5*#"AQNnndλ≠y<d
[⎇λ
l99λ∞M→(_n-→H_.D≥~→$ ;Yλ
|H≥~ T≠~;LT~;H∞M→(≤∞-y≥8nM;{C!!"J→ \];H WX|[ d
(∧uλ{l&Tλ{l&%*#"AQJ≤y.N(→.N∞[y≥,>~;{N1"Hλ∧∧λλ_¬¬
\nD
~.$
\|∧ .]z
≡→+<n 8y<¬∀
≤Dπh→.LM9z=¬]→=≥ ↑\
#!!(λλ∧∧λ
≡H
ZN]Zh→',~9z.E;→=∞L<\
$¬⊂
→',|[→E∃#"B$¬
\⎇¬∃**#!!"J→ \];H W\≠{LL<K;
≥Y(
M;Y*!QHλλ∧∧λλ
Mh
D→.\∞-y≥8nM;{\d¬_y≤D
**!QB(λ∧¬
≠]-Mλ≠
$∞
#"A∀λλλ¬ {{Y∧¬
;,≡_z¬ x8<D
#"A⊃"(λ∧
~;Y%⊃"B"$∧λ
→-W\X=e\8{{-\;Y≤d¬_<≤ ]Yλ e∧{lH∧=l,,d∧{lMD∧{lMe∀β"B!⊃""(∧∧λλ
∧]8π9z_w:4p]2P∀1Xr0y⊂≠∀TFEαDDDDH⊂⊂⊂⊂ T⊃wYλ⊃wY≠λ⊃wY≠JTTTTJTFEεB∀22s≥w⊂2]≥90w9Y7y6V\0srP
∀P∀2N80srKvpx⊂λSr] 0onder-line))
;;; Sends a paga oF stuff, 200 liness at a @QS[J~(QG←[5K]h~(QIKMβ+9β∃Tε6.vE↑ε∞≡T¬αHh$¬εf/D¬αFf≥lW
α 8G∩α ≡7∨
∧⎇FNv↑4αF.W( L\9≠{MO+=X..h j
M;Y0→JTTTTJFA⊂⊂λ⊂⊂⊂∀≠2z⊂∀
5⊂∀8]wz4r[:⊂6 )nes 200 ≤R$R~∀∩@@QKαik↔∂}k7π≠'→↓≥ ⊂∧αj$
b∩ E∩Hh!∀ααα 8 mlλ
m⎇λ
πT λ
∞,;8:-l→<H
M;Y0→H→__↔
TTFEαDP⊂∀≤rz0@ n (1,A\RR$R~∀∩@@AI<@PAR↓\@Pbαiβ%%JH4(¬α↓↓↓↓α↓!!u∧I↓A%αC↔5k,≠?7↔∞s∪M↓8@ αYJI↓∂∪|s∃$∀PI↓↓↓α↓↓↓#,¬SV.=yVn∞lN2α: λε$H ∧Hλλ$∂(Dελ@πT λ¬Dαh*#!!(λλ∧∧λλ
∞,89
!Q@∧P⊂λ⊂⊂⊂⊂
2r] %commands '(α "∧@`@λ@`@,.RRR$RR
∀$~∀_vvv↓'ikM_Ai↑A1←←Wk@ABAo=eHAS8A+≥β %λ] %
αS∞[↔Mβλβ←?K"β'9β&C∃βπ'#π∂ hQemmε∪W≠≠-⊃βπ; βGπe∪iα_hP4)#&+∂3π⊗)↓#Oε+∂'πbβ∃k∪O⊃7!%Hh)#π↔∪πeβ+SW;π↔∪⊃βQβ⊃MU9Hh(4)F#=↓!Fa4 8B¬βπ≡≠?K∪∞sS3@∀λ⊗∨&≥mvn∂-≤2ε∞Ni↔∞∞Dλλ,⎇=_=
≥{H_-L;(_-N_:= T_;< ]≠⎇~ ↑X<≡$ ;Xz-M_<↑$ ;[q ]Y≤[md_;]
≤|Z=
≡=9(λ≥{Z8-d_<∀M⎇H_<L|;λ⊂.<y=≥ ⊃"X= \z≠Z,<;λ⊂.↑≠xy.
_;~.O(_>M}_=→$ X;∪
⎇{Y]-D_X<m≡|~→-mz9 ,9<Z
}<y( ,<≤[n<αP!4Y2w9P_4z:2\9wwrλ17py→⊂!7z~97r2[297wλ192bY4w2`3q Buchnera
by calotereiTid capripede c@¬esCi%FAGK
SIS←1←OSgPAπKgQSIBA
QKKg∀AGQ←¬]←g←5JAGQUeGQ[¬\AGYα KQβ≤{π∂'& S?Iε≠?';&+;O∃∧≠?77|εBε≡⎇lfNv\Mf/∨1Q&≡}nMw↔≡≡lRε≡}-6*ε=zVw&↑,'.6d 7,=→;,≥H_p→≥y0∂inguinal cuRvy dacryo@
sgi←Mse@'v;?S?oIβ∪↔⊗ S'≠>ceβ∪.;Cπ∪.k↔;Q∧∧F.w\L↔&* LW&/,|Vv≡TλFN≡↑O⊗`hαY~.
_8⎇.≥<h→
≡z_<M]{Z4mT⊃~=∞2vt`$aa doqiee@QaSgh↓IcCY%\AKEUYcfA∃YIKe eWiQ∃aQ←←⊂AKKKβ#?7?↔β#'≠*β↔;≠|ε&≡/$λWε∞mx NM~9_,T→<=-≡Yxx-A ¬2j~50∂geographer @∃qGKaβ#'?;∞c'SE∧∧WG→;Y
≥Yh⊃L≥YX<LT→Y0→≤2z4g→β fi@IKY←G,AMI←β∪'∂We#WK∃∧∧f␈⊗\⎇F.∞Tλ N0p∞gula f@U]C@7↔+3πS|ε"ε>≥]vw"λ|Vnnα;Ym≤!"P∪Zpπgl@%]OYr↓H∂3G≤{⊂≡∞βZ0≥→P3p∩aci`→SLAOe←α{[↔∪-≠Eβ∨L¬Vw<Z3LT~_;L@py⊂ (eavi@9KgfAαC↔7∨≤{;∂↔w#@⊗∂M_ md~→0~→y0∂nomy hipπi←iI←aQr↓QW←L↓Q`↔nM⊗fOLQP@-≤;p→]<p i@ AQc@∧¬w'⊗≤8
]~90⊗H4r6 /cadi@QrAS[AaKO]¬]`ASαs∂W ⎇+@~ε≥lf/↔-_ L]≤∧P )nsense inter`∃C
kYC@&)β'≠'∪πK↔d∧↔&N⎇`λ
≡\Y0_≠y:0q≠2P% !ca`≠Kβ∪?CLhS ⊗@{\=,T⊂¬p{Xt7r4[4εe @-YSaI¬`
β3∞≠ ≡∞L≥↔=8x;∧
α0p∩ri`∂C\αβ3↔∞ λ
M9;[n 8π1`2eati@ AQSI!←aKI%kZAYα{W> X -d⊂εpq_P6pv_x97`0oism↓[CeGα+3 &tλ ,∨~;⊂⊗≠u:sp[∧¬∃[∃YP∪'4¬G.8π: M` g←β≠πWKL∧∩ε@8∧q`2obrachius mi`≥I%]NA[%`∂OC,¬f"ε]x Mtyv@ mori@9H∂π∂,¬w/~
↑Vg~9P↔[2⊂6|Zz4qP≠0yt`#or`≤Aαs↔C#|¬F}|∧P .ineteenfo@1H⊂∀-mvv≡⎇lf␈⊗β8;L<αP77[4∧i`#US@∪παM⊗}r
mvw∨α;< ≡~~0≥→y⊂7:[p¬rator o@
iC@9∧¬vn↔-x
∂=→(
}≤{p↔~qP7`2tho`)eaP∨W~β?WST∧W>λ≠p≠→y20t[8∧inepπfA←β3↔KK,∧⊗fO=Pλ
␈≤∧p⊂hile
pa`→Sαs?'α(⊂__x4w`. pa`%1S]NAββπWC,ε&/∨4λ ]Y=≤L≡≠x@≡ <Z0∪[w2P 0et @!αC'3?&K;'∪∞)βC#⊗+; >\≤vv/M_ mT≤~0∪[2z⊂(≠0qw`)de`∩Aββ3↔W⊗{⊂≡8π7`5pεAa←αK@≡}aQ'ε@{~0→↑v60q~qpv ,y po@MiKqSαc'πdλ ∞ 8;⊂⊗≠z6r`.t predp∂KYαaβCK,επ.αr2`.t prim` mSβ#eβC⊗{⊂∨⊗↑8 m≥{Z0→[P897]2qz4X4∧e @A`∂/\Mv∨.β→≥.0p @AkGWBβ!sO←ββ?&↑1P@.=8=∞0|v % radioluc@∃]G`%∧ε&.∞<8 n2⊂92Xww22[9rP 2e`
eKβ≠#↔dλ L]8∧p∀ment @IKgKeYKA]Kβ≠@~π,X
∞4πve@IhAeSα∪ ↔⊃¬∪?7↔≤∧6␈"∞.Vv&≥H $∞x;⊂∀X|p i@ A'C@⊗{S#Kλh ∩ε= Vn∂M_λd∞x|X-mβ<P)Yeutrality thurify titleboard torulose transformism trichloride tritonymphal Tuesday type unadventurously unblossomed
uncompliableness undenominationalize undescript unerected unfrounced uniformal unleafed unobediently unpretendingness unreticent
unskirted untantalized unwearying urethralgia vanadous verdureless violent vulvovaginitis waxing whirroo witloof xanthophyllous
zac)
(cdr l))
(i 0 (+ i 1)))
((null l)(setq e:dir-h (- i 1)))
(store (e:unabrd i) `(,(car l) . ,(+ i 2))))
(defmacro dword (n) `(car (e:unabrd ,n)))
(defmacro dpage (n) `(cdr (e:unabrd ,n)))
(defun e:word-lookup (word)
(cond ((> (em:rea`only)var 'attsiz)
0)
(em:ecommands '(α β K))))
(eM:ecommands (apPend '(α ε u n a b r d // d //)
(het ((base 10.)( *nopoint t))
(explode (e:bin-search word)) )
'(p ⊗ ↔)))
(em:ecommands (append '(α β F) (explode word) '(⊗ ↔)))
'done)
(defun e:word-lookup%here (word)
(cond ((> (em:readonly-var 'attsiz)
0)
(eM:ecommands '(α β K))))
(em~ecommands (append (e:iake-e-control-number
(e:bin-search word))
'(α p ⊗ ↔)))
(em:ecommands (append '(α β F) (explode word) '(⊗ ↔)))
'done)
(defun e:Bin-search (word)
(let ((low 0)
(high e:dir-h))
(do ((mid (// (+ low high) 2)
(// (+ low high) 2)))
((not (< low high))
(dpAge low))
(cond ((eq (dword mid)
↓ word)
(return (dpage mid)))
((alphalessp (dword mid) word)
(cond ((eq (dword (+ mid 1)) word)
(return (dpage (+ mid 1))))
( alphaleqsp word (dword (+ mid 1)))
(retp e\QIaC≥JA[S⊂RRR~(∩∩@@@@@@!h@Qg∃ibAYα{]↓!Zβ7'⊃β %%%JH4(∧JCQ↓#≡+SEβFK∨!↓Biβ7'"↓E%%JI%%$hP1mmZαK?W&K;↔Mπ#=β↔F≠#π;>)↓Iβε ∨↔Mph(4)F#↔≠Wr]β≠/CCI↓GA$4)αC3↔QαA#9↓F≠πIβBI$4)α↓↓↓↓α↓# *¬ 6∞π$∂αJJ⊃Q"αα 8 mlλ
n;≠λ
U*≤y.N(≠(
e*≤y.N(≠@¬¬***!QHλ
={Yλ↓QHλ묬_;Y∧¬≠];
D≠J*
n;≠λ
U**#!$λλ
∞A Hλ∧∧
→≠d¬
≡λ¬ y≤H
e(
_lNH≡
%⊃"B(¬∂(
_lNH≠"$¬_y≤D∂**#!!(
≠,∨λ
≠n$
_p.$≠J(¬ x<@
U***
]8π⊂∀≠y⊂∀1Xy⊂7∧J1py≠TTTTCE∧T∧_w2⊂∀≠:v6⊂≡∀T7:[6⊂<TJFE∧P
9rz8H7⊂∀2≠P∀∀4H6p|
⊗P4P TTFEαDP⊂⊂λ⊂⊂∀6λ∀⊂P (,i . ,l)))
((< @$A[C\$AXBR$R~∀∩!gKibαβ7'd¬εnNβH≠-≥H
≠n∧
_p⊂\⊂<∀P≠tp∞)(car @dRRR~(∩QgKQbA[C`@Q[C`A[CpQWd@!GCdAβA%β7∂A%#∂∂⊃βe%JI%↓hQ↓↓↓αC↔5k.≠?77∞s∪M↓:@ ↓5⊃βY%Hh)↓↓α↓#∂?v!↓!#w+7 ↔↔↓β9%F)c↔c≤Cπ;∨*β9β5JH4(¬α↓#@"¬
F/"¬¬εn∂∧¬εn∂ 8↔∩α4uεf∞\,F
αα≡
$ λ ⊗∧¬H ≡¬∃(≠@∀JTBE∧BP⊂∀2≠P⊂∀7λ5⊂∀1Y9⊂7))
m↓Z@@#≤#Iβ5JI↓#C␈→E%#ε{@≠∩∃⊃PPH∀∧ααα∧¬αF␈$¬εw.MDεrJ
nVfB
Q∩Jα|Mvv*⊃Q HJ∧∧ααα¬∞6/'∀∞ε␈≠∀¬ε∂∨=x2αF<≡"εj∀ V∂αα*#!! (λ∧∧λλ
∞<=_ ⊂≤7yY (do ((iap map (c`r @5C`@%Hh $∧HI↓↓↓α↓↓#@∧¬ε≡∂$λ E∃*#"A⊃ "(∧∧λλ
¬
];⊂⊗λ6px∀H∀⊂ )
↓ (cond ( :↓p@AGα#A↓ 8λ.∧≠8<¬∃*#"A⊃ ∧DDH⊂⊂⊂∀≤2z2`2n ⊃Gα Aβ7∂↓%%%JI$4λHI↓↓↓)
(t
(e:exchange (car n)(cdr pos1))
(rplaca pos1 (prog1 (car pos2)
(rplaca pos2 (car pos1))))))))))
(em:ecommands '(α v))))))
(defun e:exchange (n m)
(let ((ln 0)
(lm 0)
(current-page (em:readonly-var `page)))
(e:goto n 1)
(setq ln (em:readonly-var 'lines))
(em:ecommands (append
(e:make-e-control-number ln)
'(α A)))
(e:goto m 1)
(setq lm (em:readonly-var 'lines))
(em:ecommands (append '(α e)
(e:make-e-control-number ln)
'(⊗ ↔)
(e:make-e-control-number lm)
'(α a)))
(e:goto n 1)
(em:ecommands (append
'(α e)
(e:make-e-control-number current-page)
'(α p)))
'done))
;;; A routine to clean up a file.
;;; The following commands on the firsT line of a page dispose
;;; od that page:
;;; ↓ deletes page
;;; →<filename> sends that page to the end of the file indicated
(declare (special e:activi@QrRR~(~∀QI∃Mc\A∀qISgA←gJ[→SYJ@ R~∀@@@@@QKZuα+∂?7n ;∪Mα9 ↓h αY⊃↓I⊂βA%$hQ↓↓↓α↓↓↓#&y↓!#ε ∨πMαA5↓#,ikK↔∞#?;3Jk[πIα;Cπ∨-→%↓EJ↓!5βε ∨/4ε∩JHQ!∩αα∧¬ε+V≤:FO6≡O∩αB∃⊃P@J∧∧ααG⎇→fv/.4α:B¬∃∩JHQ!∩αᬬβjπ ≤v/~ε¬∩αF]P∞L\{{;,≥Y≤h∧uH $H≤λ$≥J*!Q@∧DDJ1ww2λ∀⊂7:[4⊂2]_qz4{~z8 )
(teRpra)
(princ '|Nk changeS to @→SYJ]pR~∀∩$∩@@@@@@QQKeae$RRR~(∩∩%>#?;∃Hh(%↓α↓#∃k&K@∨ε}<Roε≤|RαFmx
∧¬∂(∀ ≤βryP TTP+Zw32`2pεRRR4⊂∩∧Q⊃KEk\↓JuISMa←gJ5aCOJQMYC≤AoS]9KefR$p∂∂=¬#=β;,ππ"π ≤v*εmH⊗8h$∧ααα∧∧αF≡⎇lBαB
mw"απTαF.W*&.∞M⎇fgJ↑l↔∩α⎇I⊗v/5∀βαJ⊃Q Jα∧∧ααα
H .D
≠
≥Y(
],]≡-∃;~;LU**#!!"(λ∧¬→≠h¬¬≠λ∪
≥Y(
<≤H⊂⊗
TTFEαDP⊂⊂λ⊂⊂⊂∀
70∂t(member (car l)
↓ ' #o11 #O12 #O40 #o21)))
↓ (setq line l!))
↓ (c@=]H@P z@@#≤∧↔∩εM≥f*J∧ε∩HH↔0⊂hPα""$∧
≤y.N(→.L≤⎇~5M≡≤(⊂~
FA∧DBP⊂∀2N22v %te-paga))
λ ↓ ((= (car @1S]JRdj\R$∩v"y→SYK]¬[J`8hP$$∀∧αG≡↑N∩ε+,≤7&Om_
∂∀≥
#!! "(∧¬→; ≥→qwvvXw29P T↓⊂ + → α↓λ@∧@X@&@∧α↓u%$hP$$∀∧αF@→=¬¬→Z0⊗→P⊂λc@¬`@Qe∃C@⊃\h
-L8π0vYP⊂∀TJTTFEαD@ (cond ( oR (meMber @→SYJ@!GIdAβ;';;,ε'5*#"A⊃ ∧DDH⊂⊂1`/nd (λprobed fi@1JR4PH$$⊃⊃∩αFl8 mlh≥z-mY<\d¬≠Xp↔[9P3$[2TTFB∧DDDBDP:∧JTBE∧BD@P⊂λ⊂⊂⊂∀→v]2a[vvpw→9P∪T⊂↓P"
TBE∧BD@P⊂λ⊂⊂⊂∀_ww2
∀≡P∀→vY92Xp∧only( mCH@OYS9KfB@@R~∀∩$∩∩∩@@@@Q∃ZuKGα{77πv#E↓≥@⊃=⊂
α⊃JI$4(HH$$¬α↓↓↓#"↓#∃kn{[∃7ε ∨¬7&y7≠≥HRε6≥LRJJ¬∃⊂hPα""!∀λλλ∧¬≥λ
].Y0⊃[vrpw→9P∪TPλP↓λ ⊂ TJFE∧DBD@T2[];py≠⊂εE∧BD@ (implo`e (appeNd
e@aaY←I∀AMSY∀R~∀∩$∩∩∩∩@@NQpAxAy9xAi←pAyix↓xAhAβc≠qβd{qβs,πBπfoDπf'E∃∩JHβ"B!⊃ "* ={Y¬ Y_9d¬→; ≥→qwvvXw29P T↓⊂ 0))))))))
↓ (fhag(em:@∃G←[[¬]If@≤P∧A`$RRRR$~∀α@@@@Q→YCN@!KZuK
←[[C9If@N ∧A`R$RRR~(~∀QI∃Ic\A∀p ∪↔d∧W&*↑ ⊗>(
α!QHλλ∧∧λλ
].Y0m⎇;8;LNh
_.∞→;Y∧¬→*[,≥y+9%\{{]∞-βv⊗w≥vq2yλ∀2vM≤2pr7[68V{_y⊂∪v~w2yTJFE∧DBP⊂⊂⊂λ∪P↓P"⊂↓λπP↓P"∀TJTFEεB≥]]DY4v2P≠5wuyH64urH∀⊂29ZP⊂0tY⊂983JTP3'[P10y
FEεE
22s&Xqy7P→4v2VY4v2w_vrP∀→4v2TH0⊂1`!dr ,file))
(defiacro file-extensi@=\@QMαK3∃%ε↓#∂π&#I↓36K3∃%Hh)#∪.37π∂⊗yβ≠'f)7CK}S↔∂QαC≠'3*Iβ↓#≤ I↓#≤∧⊗'∩¬ 6∂∩¬LfNfU∃∩JHQ%ε&.m\⊗∨⊗tλfNfU↑π⊗}},⊗nn↑$αF6≥LRJε¬ 6∞≤H
<9≤H¬ x<@¬LZ;→%∃**#!%→→9M\8|[d [≥4m¬<{⊂.=→<h¬
(β!!(λ_¬
8<_l≥H
→N]X⎇~-⎇H
≠ ≥8Y_$¬≡
(¬ {{Y∧¬
→4$∂λ keU(
%⊃"B"!⊃"(λ∧∧λλλ¬∞α⊂∀7_ww9P≡∀TTTJFE∧DH⊂⊂⊗6
TFEεB∀22s≥w⊂2]≠w{2V\0srV]7Rs )le (file)
(eM:ecommands (apPend (e:make-e-control-number (em:rea` ←]1rSmCH@OYS9KfRR4∀∩∩@@@@@NP∧A∧@∧@ $~∀∩∩@@@@@QMYUgPKg1CgQKL@QKqAY←IJQMSY∀[MSY∃]C[J↓ISYJ$RR~∀$∩@@@@@@Q
←]H@ Q]OhQKb@!MSYJ5KqiK9gS←\↓H '3*H4($HH%↓↓α↓↓↓↓=z}⎇%Hh($$J↓↓↓↓α↓#πC∧+;⊃↓:A=9$hP$$$J↓↓↓↓α↓#≠3,ε6Bo=L↔≡F↑4αF/∞
F}&T¬ε6NLUV/GL]g≡N⎇dε&NLU∩JJ∃∃⊂hP⊃∀ααα∧∧αα:¬{2Hh!⊃∩αα∧∧ααα iG/≡¬↑6f∂= W~α ←πεf|LRαFm→F*o∞-vV.>Dε -;→*%∃#"B!∀λλλ∧∧λ j¬u
#"A⊃(λλ∧∧λλ
m≥<z¬↑{_<m <h
←≤≠≠lL(
→M≥→+<∞-y|X-]9<H M;→*%∃#"B!∀λλλ∧∧λ j¬{( kd (¬HαtH⊗∧ (⊂(
$∩h¬DαhH ∧HβdHhλE***!QC"J L9];D .\⎇m≡_z ,m;→(¬ Z;→%⊃"H
].Y8m⎇;8;LNh
_.∞→;Y∧∧jHe#"B!∀λλλ∧∧λ
→MN<z .=_<z ↑h
→/∞≠≠y T
→Z-L+9Z-L;X;,T→Z; U**#!!"(λ∧∧λλλ¬ {{Y∧¬
≠[nD
→<$¬→Z; U9>≥ ]\z3md→Z; U#"B!⊃"(λ∧∧λλλ∧{wwj%⊃"B"!∀λλλ∧∧
_<∞ ;Y∧u kB!QB""!∀λλλ∧∧
→S∞↑z <mL<z→.4
→>∞
≠y→$¬→Z; U9>≥ ]\z;md→Z3 U***%∃#"B!∀λλλ∧∧λ j¬{j#"A⊃(λλ∧∧λλ
m≥<z¬↑{_<m <h
←≤≠≠lL(
→M≥→+<∞-zY8nD→Z3 U**#!!"(λ∧∧λλλ∧u k
!QB"(∧∧λλλ∧¬→[≥.= <{ ≡z→<d¬→>≤
My→(¬ Z;→%↑≤[yn,;;9.$→Z0⊗→TTTFB∧DP⊂λ⊂⊂⊂⊂ T↔nPλ↔WP"H ⊂ TJTTFEβ≥]]P∪7z⊂"\zpv9CEεE∀→2s:wλ2]77]⊗rxzXv9P∀≡∀BE⊂λ⊂⊂⊂⊂λ∀1ww→⊂εE∧H⊂⊂⊂⊂
∀7:vX2y8⊂≡∀FE∧H⊂⊂⊂⊂λ∀2]'≠z⊗rh]pv9V[:vq2\_P<∀JFE∧Pλ⊂⊂⊂∀
0z7vH<∀PεB∧P⊂⊂λ⊂⊂∀2≠P∀∀;λ∀2]7≠z⊗r`1uals-atom1 x)
(e:not-equals-atom1 x)))
(v v)))
((hunkp x) (let ((l (hunksize x))
(h()))
(setqh (makhunk l))
(do ((i 0 (1+ i)))
((= i l) h)
↓ (rplacx i h (e:noT-eqeals (cxr i x))))))
(pλ@Q5CaGCH@FOJi]←h[∃ckCYLApRR$RR~∀4∀~∧Q⊃KMk\↓Ju]←P[Kck¬Yf[CQ←Zb@!pR
∀@@@@@QYKP@PQ\QeC]⊃←Z@Q
CAd@!CeeCeIS[f↓←ECeICrRR$R~∀∩@@@@!MYCNPRR~(∩@@@@QR@@RR~∀$@@@@ UGCI
P@O←Uh~∧∩$@@@@![CaCQ←[f@4∀∩α@@@@F≤QYC[ IB@QdR~∀∩$∩@@@@@@Q
←]H@ Q]@? β≠#π:H4(∧HH%↓↓α↓↓↓β≤¬vv"¬¬βjε∀ bHh!⊃⊂HH∀∧ααα¬∞6/'∀ ff∞t
BJHQ!⊂HH⊃∀ααα¬∞BαG<ZG
ε∀¬β
Z
∃∩JJ∃⊃PPH⊃⊃∩αα∧∧αBFmx
∧¬→< ∂∧≡**!Q@""!∀λλλ∧∧
U
∞Y⎇`∧⎇⎇=∂∃***%∃**#!↓ ¬∀2→q:w e:`≥←β!7πGαX⊗g~β;]-\Y<@_H∀8∀FB⊂⊂⊂⊂λ⊂⊂∀2≠P⊂∀4H∀90w→7vP_L__↔∧J90w2≠vP_@000 ≤R$R~∧∩@@@Q9←h@PβiβaβJI%β%JI$4λhP1mmβ0∧F∞=0λ∞MβP"7]q0 e @π←Y@,¬Vp@ ¬εE
22s 5n e 5α#?W d∧RαBα#"D∧λλλ∧∧λ∧6 %t ⊂Q8@QKZβS@⊗.≤MvvGα+=L≡H x.Nα9t`:)))
(h Khα↓!##p∧αBzβh⊂↔λ→∀TFBα ∩@QP∨∪'↓↓!∃∃⊂hPα"(¬ {{Y∧¬λ∧⊂≥↓\@@T↓QP→↓α
%∃ εE∧BP⊂⊂⊂λ⊂⊂∀:λ∀9r`4q oddp t)))
∀∩$@QKZβS↔∂?nkπ;∪~↓#πCrol-number hn)))
'(⊗ ↔)
(e:make-e-control-number hn)
'(α A)))
(cond (oddp
(em:ecommands '(⊗ ↑))))
(do ((i hn (1- i)))
((= i 0)
(do ((i hn (1- i)))
((= i 0)
(em:ecommands '(α V))
'done)
(em:ecommands '(α ⊗ = α d β ⊗ = ⊗ ↔))))
(em:ecommands '(α - α a ⊗ ↑))))))
;;; For Finding Strings
(declare (special e:search-string))
(setq e:search-string ())
(defun e:set-string (string)
(setq e:search-string string)
t)
(defun e:find-string ()
(em:ecommands (append
'(α F)
(explode e:search-string)
'(⊗ ↔)))
t)
(defun e:xfind-string ()
(em:ecommands (append
'(α x F | |)
(explode e:search-string)
'(⊗ ↔)))
t)
(defun e:report-string () e:search-stping
;;; For Respo@9IS]NαβS-αl
&1aQ hR LV≡f≡,RαG>λV≡N≥Dε+V\≥⊗bn Xλ,L<\h¬.z=→$¬YX;,T
Z]-mh
\n\ZY8nE*#"AQJ≤y.N(→.M\:; - 89→..hβ"D∧λλλ∧∧h
D¬ ≤@⊂∂P2]&_w3v"\∀P∀∩~y⊂∃7_vrP2N57zε]t4z2Kyx0qYx⊂FEαP⊂⊂∀ 4y⊂∃λ2Y;t~z2Vy\0qrh
FE∧Pλ⊂∀∩9λ∨P2]_x⊂ ($r ? e:t`) ($ir * e:white-spacep)
($ir *qite e:fo@P[oQSQJ[ga¬GK`R Id@}↓JueC9OYK`$@~∀∩@@UgUEUKGPR~∀~(∩PT@ Id@}↓JuiC `R@P⊃Sd@U9C[JA∀u]←h5oQSi∀[gaC
K`R~(∩@@@ ISd@(AJuo!SiJ[MaCGK@R~∀∩@@PIH@}AJiC`R@ Id@}↓Jui`$@PId}AJu]QSiJ5gaCG∃`R~∀$@@@P⊃Sd@T↓JuoQ%iJ[gACGK`$~∀∩@@PISH@UgSQJAJu9←h[o!SiJ[MaCGK@R@~∀$@@@P⊃d@}A∀uoQSQJ[ga¬GK`RUgkE)KGhR4∀~∀∩ T@PIH@}AJiiCE`$@PISH@U]C5JAJu9←h[o!SiJ[MaCGK@R@PIH@}AJi↓`R~(∩@@@ ISd@)gSiJ↓Ju]←P[oQSQJ[ga¬GK`RPId@|AJuo!SiJ[MaCGK@R@UgUEUKGPR~∀~(∩PT@
↑bb@
↑lb@
↑l`@
↑l`@ ISd@(AJuo!SiJ[MaCGK@R@G↑\d@~∀$@@@P⊃Sd@T↓JuoQ%iJ[gACGK`$@PISH@U]C5JAJu9←h[o!SiJ[MaCGK@R~∀∩@@PIH@}AJioQSi∀[gaC
K`R@)gkEU∃GhR~(~∀∩PαQ↓!∪⊂↓⎇β∃W#π AJ↓!∪'∩↓+;πn)β∃kv{Q7←FKS∃7∨βπ∂↔αI4λJ↓↓↓!'⊃↓⎇β+S←#'&)7OC∞≠↔A%αSOW V+∂Q%α4(∀RI$4(hQmmm¬∪↔SW⊗sMβ↔w#'K∃πβπ∨∃π#=βO.s∪↔HhP4)#&+≠W9ε)cK↔∨β?;⊃nkπ'1αA$4)α↓↓↓↓α↓#↔5V+∂?7n ;∪Mα9 ↓j βYJH4)↓α↓↓↓↓αC3↔QαA#πS'≠'i↓F+5kK. ∪?;gI7[π∩↓∨πS'≠'i%Hh(%↓α↓↓↓#dK;↔;.i↓!%JH4(%α↓↓↓#≤{;⊃↓BAuβπ'#O'iβ↓%$4PH%↓↓G!↓#↔kS↔∂?nkπ;∪~↓≥ ∧)%$4PH%↓↓α↓↓#O/#Eβ3Ns↔;Wj↓#↔5W∪↔π∪}s3e76 I↓∨fK;∃%JI$4(J↓↓↓↓F+5k↔≡{77πv#M↓≥@⊃β1%Hh(%↓α↓↓#3/!↓!#fK;∃↓F+5kSNI73'v)%%$hP$%↓F#=↓!Faβ∃kn '17F+πβ↔↔→↓#∂'⊃β1%Hh($%α↓↓↓↓αA+;πn)↓!%JA+O'&)↓!%JA+OW⊗S↔∂QαA%%$hP$%↓α↓↓↓!FsW31εa%↓#.ik↔∂}k7π;'→↓≥ ∩βY%$hP$$%α↓↓↓↓α↓≡#WCy$4(HI↓↓↓α↓#∂?v!↓!!.kπS∂@↓#∂π⊂β1$∀PH$$%α↓↓β3Ns∃$4PH$%↓α↓↓#∂|s⊃↓!Fs?Q↓AiβπS'≠'i↓αI$4(HH$%↓α↓#↔5T+∂?7n ;∪Mh($$HI↓↓↓α↓↓#π¬β↔;⊃h($$HI↓↓↓α↓↓↓#+S7π/*k∃7∂|sSK?bk;W7⊗+A↓!λiβ3'v+;W5JH4(∧HH%↓↓α↓↓↓↓:@Y]Hh($$HI↓↓↓α↓↓↓#+S7π/*k∃7∂|sSK?bk;W7⊗+Aβπ'#G'iHh($$HI↓↓↓α↓↓↓≥@⊃β¬%JI%$∀PH$%↓α↓↓#↔iSCπ]n+∂?7n ;∪LhP$$¬α↓↓↓↓F CC↔v 4(⊃⊃∩αα∧∧αα:αλsf$λ{l&6λλsf⊗-(λmv, ⊂λwXXHH⊃wXXM⊂⊃wZMβ #o123
∩@@@G↑Ddj@GαyQA⊃Q HHα(λ∧∧λλ
Ml8εrFB∧@ (cond ("`'%iJ@N C↑b`@RRR~(∩∩%α↓↓↓↓αC∂?; ↓!+OLεF*J⊃Q HHα(λ∧∧λλ e∧{m ¬⊃ B"!∀λλλ∧∧λ∧2]_ww24]4p∂n
subj@∃Gh@UMkEEKα≠Q$Q!⊂HJ∧∧ααα∧qα∞{&dα∞{&p
%∃ εE∧BDP⊂⊂λ∀1w`.d (not (tACi@'≠'i↓αI$4!⊃⊂HJ∧∧αF.β*P∩Xwvvp[29P∪J↓⊂"TJTTFEαD@ ⊃Kαic↔∂|¬Vn∞βY≤d∧βP T∧RR~(∩∩%α↓↓↓∞,W'<[@⊂ p∧one)))))))~∀4⊂ #∪,∧g.r W&≡}lM↔&Nβ{@⊗\βubj@∃Gh@Q0R~)α↓↓↓↓α↓#∪=αA#aβb↓#∂∪α λ∂¬**#!∧P⊂⊂
∀2P~@9←hKo!SiJ[MaCGKβ↓↓#∂∂⊃βa∃∃⊂hPα(λ∧¬≤y0~≤P6⊂∀_p∧r @0RRR~(@@@@@@@!,¬V∂&=λ ¬λ¬5 5nk ,@(e0∃Gβ∪3→%Jβ1$Q$ααα∧∧ααG<X
∞∀λ¬5 5nk (reverse ∃Uβ+;-∃⊃P@$λλλ∧∧λ
→
tλ∧∀<λ∃0
`+αs ~αα_p∩≤α p⊂R$R~(J↓↓↓¬ S@-β0∂`(αk←#'αLRo∨ ≤6/α¬ 6∂∩∂
%⊃ ¬∧Pλ⊂⊂∀9→{2y9YP⊂
j@U]V@%Hh ⊂J∧∧αG≡↑N∩αVαX
`.hε@@#≤∧G$λ¬5 5nk ∩R$R~(hP